#!/usr/bin/perl -w
print "enter a name\n";
@array = <STDIN>;
my %hash = ();
 

foreach (@array) {
$hash{$_} += 1;

}


foreach (sort keys %hash) {

print "$_ had entered $hash{$_} ones \n"; 
}





